﻿Imports System.Data
Imports System
Imports System.Collections.Generic
Imports BLGestionProyecto.BLGPActividad
Partial Class Controls_wctlProyectoActividadPersonalBuscar
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.lblMensaje.Text = ""
        'VALORES QUE RECIBE X QUERYSTRING CODPRO Y CODPER'
        'VALORES QUE RECIBE X SESION BEGPHORAREGISTRO'
        'VALORES QUE EVIA X SESION BEGPHORAREGISTRO'
        'VALORES QUE EVIA X QUERYSTRING BSQ'
        If Not Page.IsPostBack Then
            Try
                If Not Request.QueryString("BSQHOR") Is Nothing Then
                    lblProyecto.Text = CType(Session("BEGPHoraRegistroBSQACTIVIDAD"), BEGestionProyecto.BEGPHoraRegistro).NOMBREPROYECTO
                End If
            Catch ex As Exception
                lblMensaje.Text = ex.Message
            End Try
        End If
    End Sub





    Function fuValidarDatosalSeleccionar(ByVal penm As clsGPEstructuras.enmEstadoDocumentos) As Boolean
        Dim lbErr As Boolean
        Try
            lblMensaje.Text = ""
            If dgvListadoProyectoActividadPersona.GetSelectedFieldValues("papProyActPerID").Count = 0 Then
                lblMensaje.Text &= "* Debe Seleccionar una Actividad de la Lista</BR>"
                lbErr = True
            End If
            Return Not lbErr
        Catch ex As Exception
            lblMensaje.Text = Err.Description
        End Try
    End Function

    Protected Sub btnAceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        If Not fuValidarDatosalSeleccionar(clsGPEstructuras.enmEstadoDocumentos.GPESTEDITAR) Then
            Exit Sub
        End If
        Dim lLst As List(Of Object) = dgvListadoProyectoActividadPersona.GetSelectedFieldValues("papProyActPerID")
        Dim lLst1 As List(Of Object) = dgvListadoProyectoActividadPersona.GetSelectedFieldValues("actDescActividad")
        Dim liProyActPerID As String = lLst.Item(0).ToString
        Dim lsDescActividad As String = lLst1.Item(0).ToString
        If Not Request.QueryString("BSQHOR") Is Nothing Then
            CType(Session("BEGPHoraRegistroBSQACTIVIDAD"), BEGestionProyecto.BEGPHoraRegistro).HorProyActPerID = liProyActPerID
            CType(Session("BEGPHoraRegistroBSQACTIVIDAD"), BEGestionProyecto.BEGPHoraRegistro).NOMBREACTIVIDAD = lsDescActividad
            Response.Redirect("wfrmHorasRegistro.aspx?BSQACT=" & clsGPEstructuras.enmRPTACONFIRMA.GPACEPTAR)
        ElseIf Not Request.QueryString("BSQGAS") Is Nothing Then
            'CType(Session("BEGPGastoRegistroBSQACTIVIDAD"), BEGestionProyecto.BEGPGastoRegistro).GascodProyectoActividad = liPapcodProyectoActividad
            'CType(Session("BEGPGastoRegistroBSQACTIVIDAD"), BEGestionProyecto.BEGPGastoRegistro).NOMBREACTIVIDAD = lsActdesActividad
            Response.Redirect("wfrmGastoRegistro.aspx?BSQACT=" & clsGPEstructuras.enmRPTACONFIRMA.GPACEPTAR)
        End If
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        If Not Request.QueryString("BSQHOR") Is Nothing Then
            Response.Redirect("wfrmHorasRegistro.aspx?BSQACT=" & clsGPEstructuras.enmRPTACONFIRMA.GPCANCELAR)
        Else
            Response.Redirect("wfrmGastoRegistro.aspx?BSQACT=" & clsGPEstructuras.enmRPTACONFIRMA.GPCANCELAR)
        End If
    End Sub
    Sub poRefrescarGrilla()
        dgvListadoProyectoActividadPersona.PageIndex = 0
        dgvListadoProyectoActividadPersona.DataBind()
    End Sub

End Class